home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / Programming / ViewIt 2.24 / FORTRAN Demo Projects / Absoft MacFortran II 3.2 Demos / Old MF 020 Stuff / FaceStorMF.inc < prev    next >
Encoding:
Text File  |  1994-01-27  |  12.2 KB  |  439 lines  |  [TEXT/EDIT]
  1. C FaceWare 2.23 Constants & Shared Record
  2. C ©FaceWare 1989-94.  All Rights Reserved.
  3.  
  4.     integer*4 DoInit,DoPrep
  5.     parameter (DoInit = -61)
  6.     parameter (DoPrep = -62)
  7. C FaceIt commands
  8.     integer*4 DoLoop,DoEvnt,DoMenu,GetMsg
  9.     parameter (DoLoop = 0)
  10.     parameter (DoEvnt = -51)
  11.     parameter (DoMenu = -52)
  12.     parameter (GetMsg = -55)
  13. C ViewIt commands
  14.     integer*4 ChgCur,PstEvt,PopMen,SetIdl,EndIdl,DoUpdt,SetPal
  15.     integer*4 ShoAlt,StpAlt,NotAlt,CtnAlt,SetItm2,SetItm,GetItm
  16.     integer*4 ChkMem,NewBlk,PrgCmd,GetFgC,GetBkC,SetFgC,SetBkC
  17.     integer*4 SetFSS,SetPal2,StdOpn,StdSav,GetRef,SetRef,SetTyp
  18.     integer*4 SndBhd,GetNam,SetNam,MovRec,MovAlt,MovDlg,MovWin
  19.     integer*4 DrgWnd,ShoStr,StpStr,NotStr,CtnStr,GetStd,SetStd
  20.     integer*4 SavDlg,SavWin,FndTxt,DoUnld,DoUpdt2,HitCtl
  21.     integer*4 SetSub,TrmStr,SetPrm,CnvStr,NumToS,SToNum,GetStr
  22.     integer*4 SetStr,SrtLst,DupLst,SetItm1,FixFSC,SelFSC,PstNot
  23.     integer*4 NewWnd,EndWnd,MdlWnd,SizWnd,MovWnd,SizCtl,SetInfo
  24.     integer*4 ShoWnd,HidWnd,GetWnd,GetCtl,ShoCtl,GetVal
  25.     integer*4 SetVal,OvrCtl,AddCtl,DrwCtl,ScrCtl,ActCtl
  26.     integer*4 GetWVC,LnkCtl,AddVew,SelCtl,DspCtl,StlCtl
  27.     integer*4 SavCtl,SavWnd,HlpWnd,MovCtl,ClrCtl,SetVCod
  28.     parameter (DoUpdt2 = -53)
  29.     parameter (DoUpdt = -53)
  30.     parameter (DoUnld = -63)
  31.     parameter (ChgCur = 121)
  32.     parameter (PstEvt = 122)
  33.     parameter (PopMen = 123)
  34.     parameter (PstNot = 124)
  35.     parameter (SetIdl = 131)
  36.     parameter (EndIdl = 132)
  37.     parameter (ShoAlt = 153)
  38.     parameter (StpAlt = 154)
  39.     parameter (NotAlt = 155)
  40.     parameter (CtnAlt = 156)
  41.     parameter (SetItm1 = 160)
  42.     parameter (SetItm2 = 161)
  43.     parameter (SetItm = 161)
  44.     parameter (GetItm = 162)
  45.     parameter (FixFSC = 163)
  46.     parameter (SelFSC = 164)
  47.     parameter (ChkMem = 171)
  48.     parameter (NewBlk = 172)
  49.     parameter (PrgCmd = 173)
  50.     parameter (GetFgC = 178)
  51.     parameter (GetBkC = 179)
  52.     parameter (SetFgC = 180)
  53.     parameter (SetBkC = 181)
  54.     parameter (SetFSS = 183)
  55.     parameter (SetPal2 = 185)
  56.     parameter (SetPal = 185)
  57.     parameter (StdOpn = 201)
  58.     parameter (StdSav = 202)
  59.     parameter (GetRef = 205)
  60.     parameter (SetRef = 206)
  61.     parameter (SetTyp = 208)
  62.     parameter (SndBhd = 250)
  63.     parameter (GetNam = 251)
  64.     parameter (SetNam = 252)
  65.     parameter (MovRec = 254)
  66.     parameter (MovAlt = 255)
  67.     parameter (MovDlg = 256)
  68.     parameter (MovWin = 257)
  69.     parameter (DrgWnd = 259)
  70.     parameter (ShoStr = 261)
  71.     parameter (StpStr = 262)
  72.     parameter (NotStr = 263)
  73.     parameter (CtnStr = 264)
  74.     parameter (GetStd = 301)
  75.     parameter (SetStd = 302)
  76.     parameter (SavDlg = 356)
  77.     parameter (SavWin = 357)
  78.     parameter (SetSub = 451)
  79.     parameter (TrmStr = 452)
  80.     parameter (SetPrm = 453)
  81.     parameter (CnvStr = 454)
  82.     parameter (FndTxt = 455)
  83.     parameter (NumToS = 471)
  84.     parameter (SToNum = 481)
  85.     parameter (GetStr = 491)
  86.     parameter (SetStr = 492)
  87.     parameter (SrtLst = 493)
  88.     parameter (DupLst = 494)
  89.     parameter (AddVew = -1200)
  90.     parameter (NewWnd = -1201)
  91.     parameter (EndWnd = -1202)
  92.     parameter (MdlWnd = -1203)
  93.     parameter (SizWnd = -1204)
  94.     parameter (MovWnd = -1205)
  95.     parameter (ShoWnd = -1206)
  96.     parameter (HidWnd = -1207)
  97.     parameter (GetWVC = -1208)
  98.     parameter (GetWnd = -1209)
  99.     parameter (LnkCtl = -1210)
  100.     parameter (GetCtl = -1211)
  101.     parameter (ShoCtl = -1212)
  102.     parameter (GetVal = -1213)
  103.     parameter (SetVal = -1214)
  104.     parameter (OvrCtl = -1215)
  105.     parameter (AddCtl = -1216)
  106.     parameter (DrwCtl = -1217)
  107.     parameter (ScrCtl = -1218)
  108.     parameter (ActCtl = -1219)
  109.     parameter (SelCtl = -1220)
  110.     parameter (DspCtl = -1221)
  111.     parameter (StlCtl = -1222)
  112.     parameter (SavCtl = -1223)
  113.     parameter (SavWnd = -1224)
  114.     parameter (SizCtl = -1225)
  115.     parameter (MovCtl = -1226)
  116.     parameter (ClrCtl = -1227)
  117.     parameter (SetVCod = -1228)
  118.     parameter (SetInfo = -1228)
  119.     parameter (HlpWnd = -1229)
  120.     parameter (HitCtl = -1230)
  121.  
  122. C Global ViewIt record
  123. C program-wide info
  124.     integer*2   fHead(8)
  125.     integer*4   fOffPort
  126.     integer*4   fCOffPort
  127.     integer*4   fActiveWnd
  128.     integer*4   fActiveRec
  129.     integer*2   fActiveID
  130.     integer*2   fActiveResID
  131.     integer*2   fMsgCount
  132.     integer*4   fFlags
  133.     integer*4   fStuff
  134.     integer*4   fHeapBuff
  135.     integer*4   fEnvFlags
  136.     integer*4   fSleep
  137.     integer*2   fScreenRect(4)
  138.     integer*2   fDragRect(4)
  139.     integer*4   fFrontSleep
  140.     integer*4   fBackSleep
  141.     integer*2   fFiller1
  142.     integer*4   fStdBlock
  143.     integer*2   fStdCount
  144.     integer*2   fSysEnvArr(8)
  145.     integer*2   fApplVRef
  146.     character*4 fCreator
  147.     integer*4   fRefCon
  148.     integer*2   fFiller2(7)
  149.     integer*2   fCursor
  150.     integer*4   fFontMenu
  151.     integer*4   fSizeMenu
  152.     integer*4   fStyleMenu
  153.     integer*4   fColorMenu
  154.     integer*1   fFiller3
  155.     integer*1    fI1Err
  156.     integer*2   fI2Err
  157.     integer*4   fI4Err
  158.     integer*2    fI8Err(4)
  159.     real*4      fR4Err
  160.     real*8      fR8Err
  161.     integer*2   fR10Err(5)
  162.     integer*2   fR12Err(6)
  163.     integer*2    fFiller4(105)
  164.     integer*4    fDrvr7400
  165.     integer*1    fMBarHt
  166.     integer*1    fDecPtCh
  167.     integer*2    fSysFNum
  168.     character*32 fSysFName
  169.     integer*4   fWDEF
  170.     integer*4   fGlueData
  171.     integer*4   fWaitNextEvent
  172.     integer*4   fGetNewWindow
  173.     integer*4   fGetNewCWindow
  174.     integer*4   fDisposeWindow
  175.     integer*4   fFiller5(4)
  176.     integer*4   fActiveWindow
  177.     integer*4   fSelectWindow
  178.     integer*4   fUpdateOther
  179.     integer*4   fFiller6(9)
  180.     integer*2   fEvent(8)
  181.     integer*2    fFiller7(190)
  182. C utility scratch variables
  183.     integer*2    uFSSpec(35)
  184.     integer*2   uHead(8)
  185.     integer*2   uI2
  186.     integer*4   uI4
  187.     real*4      uR4
  188.     real*8      uR8
  189.     integer*2   uR10(5)
  190.     integer*2   uR12(6)
  191.     integer*2   uPt(2)
  192.     integer*2   uRect(4)
  193.     integer*4   uCommand
  194.     integer*4   uParam(4)
  195.     integer*4   uResult
  196.     integer*4   uMenuID
  197.     integer*4   uMenuItem
  198.     character*256 uString
  199.     character*256 uName
  200.     integer*2   uRGB(3)
  201.     integer*1   uStyle
  202.     integer*1   uI1
  203.     integer*2   uI8(4)
  204.     integer*4   uMenuHdl
  205. C window-related info
  206.     integer*2   vHead(8)
  207.     integer*2   vErr
  208.     integer*4   vCDEF
  209.     integer*4   vSelectCtl
  210.     integer*4   vSelectRec
  211.     integer*2   vSelectID
  212. C info returned by enabled items
  213.     integer*2   wiHit
  214.     integer*2   wvHit
  215.     integer*2   wcHit
  216.     integer*2   wClick
  217.     integer*2   wEvent(8)
  218. C window info returned by GetWnd
  219.     integer*4   wWindow
  220.     integer*2   wResID
  221.     integer*2   wCount
  222.     integer*2   wvCount
  223.     integer*2   wiCount
  224. C control info returned by GetCtl
  225.     integer*4   cControl
  226.     integer*2   ciIndex
  227.     integer*2   cvIndex
  228.     integer*2   ccIndex
  229.     integer*2   cBaseID
  230. C info copied from "cControl" block
  231.     integer*4   cNext
  232.     integer*4   cOwner
  233.     integer*2   cRect(4)
  234.     integer*1   cVis
  235.     integer*1   cHilite
  236.     integer*2   cValue
  237.     integer*2   cMin
  238.     integer*2   cMax
  239.     integer*4   cInfo
  240.     integer*4   cLoData
  241.     integer*4   cAction
  242.     integer*4   cRefCon
  243.     character*256 cTitle
  244. C info copied from "cInfo" block
  245.     integer*2   cStuff(6)
  246.     integer*4   cTmplRefCon
  247.     integer*4   cPtr
  248.     integer*4   cHiData
  249.     integer*4   cView
  250.     integer*2   cOldRect(4)
  251.     integer*2   cClip(4)
  252.     integer*2   cContent(4)
  253.     integer*2   cLimit(4)
  254.     integer*4   cType
  255.     integer*2   cVarCode
  256.     character*4 cResType
  257.     integer*2   cResID
  258.     integer*4   cResHdl
  259.     integer*4   cPrivate
  260.     integer*1   cScrInc
  261.     integer*1   cCmdKey
  262.     integer*2   cPnRound
  263.     integer*2   cPnSize(2)
  264.     integer*1   cTxJust
  265.     integer*1   cTxFace
  266.     integer*2   cTxSize
  267.     integer*2   cTxFont
  268.     integer*2   cDataType
  269.     integer*1   cDataDigits
  270.     integer*1   cDataFormat
  271.     integer*2   cDataOffset
  272.     integer*4   cDataPtr
  273.     integer*2   cStorType
  274.     integer*4   cStorPtr
  275.     integer*4   cColors
  276.     integer*4   cOverride
  277.     integer*2   cCount
  278.     character*256 cString
  279. C private debugging table
  280.     integer*2   xEntries
  281.     integer*4   xTable(40)
  282.  
  283.       integer*1 fRec(2548)
  284.       common/FaceStuff/fRec
  285.  
  286.       equivalence (fRec(1),fHead(1))
  287.       equivalence (fRec(17),fOffPort)
  288.     equivalence (fRec(21),fCOffPort)
  289.     equivalence (fRec(25),fActiveWnd)
  290.     equivalence (fRec(29),fActiveRec)
  291.     equivalence (fRec(33),fActiveID)
  292.     equivalence (fRec(35),fActiveResID)
  293.     equivalence (fRec(37),fMsgCount)
  294.     equivalence (fRec(39),fFlags)
  295.     equivalence (fRec(43),fStuff)
  296.     equivalence (fRec(47),fHeapBuff)
  297.     equivalence (fRec(51),fEnvFlags)
  298.     equivalence (fRec(55),fSleep)
  299.     equivalence (fRec(59),fScreenRect(1))
  300.     equivalence (fRec(67),fDragRect(1))
  301.     equivalence (fRec(75),fFrontSleep)
  302.     equivalence (fRec(79),fBackSleep)
  303.     equivalence (fRec(83),fFiller1)
  304.     equivalence (fRec(85),fStdBlock)
  305.     equivalence (fRec(89),fStdCount)
  306.     equivalence (fRec(91),fSysEnvArr(1))
  307.     equivalence (fRec(107),fApplVRef)
  308.     equivalence (fRec(109),fCreator)
  309.     equivalence (fRec(113),fRefCon)
  310.     equivalence (fRec(117),fFiller2(1))
  311.     equivalence (fRec(131),fCursor)
  312.     equivalence (fRec(133),fFontMenu)
  313.     equivalence (fRec(137),fSizeMenu)
  314.     equivalence (fRec(141),fStyleMenu)
  315.     equivalence (fRec(145),fColorMenu)
  316.     equivalence (fRec(149),fFiller3)
  317.     equivalence (fRec(150),fI1Err)
  318.     equivalence (fRec(151),fI2Err)
  319.     equivalence (fRec(153),fI4Err)
  320.     equivalence (fRec(157),fI8Err(1))
  321.     equivalence (fRec(165),fR4Err)
  322.     equivalence (fRec(169),fR8Err)
  323.     equivalence (fRec(177),fR10Err(1))
  324.     equivalence (fRec(187),fR12Err(1))
  325.     equivalence (fRec(199),fFiller4(1))
  326.     equivalence (fRec(409),fDrvr7400)
  327.     equivalence (fRec(413),fMBarHt)
  328.     equivalence (fRec(414),fDecPtCh)
  329.     equivalence (fRec(415),fSysFNum)
  330.     equivalence (fRec(417),fSysFName)
  331.     equivalence (fRec(449),fWDEF)
  332.     equivalence (fRec(453),fGlueData)
  333.     equivalence (fRec(457),fWaitNextEvent)
  334.     equivalence (fRec(461),fGetNewWindow)
  335.     equivalence (fRec(465),fGetNewCWindow)
  336.     equivalence (fRec(469),fDisposeWindow)
  337.     equivalence (fRec(473),fFiller5(1))
  338.     equivalence (fRec(489),fActiveWindow)
  339.     equivalence (fRec(493),fSelectWindow)
  340.     equivalence (fRec(497),fUpdateOther)
  341.     equivalence (fRec(501),fFiller6(1))
  342.     equivalence (fRec(537),fEvent(1))
  343.     equivalence (fRec(553),fFiller7(1))
  344.  
  345.     equivalence (fRec(933),uFSSpec(1))
  346.     equivalence (fRec(1003),uHead(1))
  347.     equivalence (fRec(1019),uI2)
  348.     equivalence (fRec(1021),uI4)
  349.     equivalence (fRec(1025),uR4)
  350.     equivalence (fRec(1029),uR8)
  351.     equivalence (fRec(1037),uR10(1))
  352.     equivalence (fRec(1047),uR12(1))
  353.     equivalence (fRec(1059),uPt(1))
  354.     equivalence (fRec(1063),uRect(1))
  355.     equivalence (fRec(1071),uCommand)
  356.     equivalence (fRec(1075),uParam(1))
  357.     equivalence (fRec(1091),uResult)
  358.     equivalence (fRec(1095),uMenuID)
  359.     equivalence (fRec(1099),uMenuItem)
  360.     equivalence (fRec(1103),uString)
  361.     equivalence (fRec(1359),uName)
  362.     equivalence (fRec(1615),uRGB(1))
  363.     equivalence (fRec(1621),uStyle)
  364.     equivalence (fRec(1622),uI1)
  365.     equivalence (fRec(1623),uI8(1))
  366.     equivalence (fRec(1631),uMenuHdl)
  367.  
  368.     equivalence (fRec(1635),vHead(1))
  369.     equivalence (fRec(1651),vErr)
  370.     equivalence (fRec(1653),vCDEF)
  371.     equivalence (fRec(1657),vSelectCtl)
  372.     equivalence (fRec(1661),vSelectRec)
  373.     equivalence (fRec(1665),vSelectID)
  374.     equivalence (fRec(1667),wiHit)
  375.     equivalence (fRec(1669),wvHit)
  376.     equivalence (fRec(1671),wcHit)
  377.     equivalence (fRec(1673),wClick)
  378.     equivalence (fRec(1675),wEvent(1))
  379.     equivalence (fRec(1691),wWindow)
  380.     equivalence (fRec(1695),wResID)
  381.     equivalence (fRec(1697),wCount)
  382.     equivalence (fRec(1699),wvCount)
  383.     equivalence (fRec(1701),wiCount)
  384.     equivalence (fRec(1703),cControl)
  385.     equivalence (fRec(1707),ciIndex)
  386.     equivalence (fRec(1709),cvIndex)
  387.     equivalence (fRec(1711),ccIndex)
  388.     equivalence (fRec(1713),cBaseID)
  389.     equivalence (fRec(1715),cNext)
  390.     equivalence (fRec(1719),cOwner)
  391.     equivalence (fRec(1723),cRect(1))
  392.     equivalence (fRec(1731),cVis)
  393.     equivalence (fRec(1732),cHilite)
  394.     equivalence (fRec(1733),cValue)
  395.     equivalence (fRec(1735),cMin)
  396.     equivalence (fRec(1737),cMax)
  397.     equivalence (fRec(1739),cInfo)
  398.     equivalence (fRec(1743),cLoData)
  399.     equivalence (fRec(1747),cAction)
  400.     equivalence (fRec(1751),cRefCon)
  401.     equivalence (fRec(1755),cTitle)
  402.     equivalence (fRec(2011),cStuff(1))
  403.     equivalence (fRec(2023),cTmplRefCon)
  404.     equivalence (fRec(2027),cPtr)
  405.     equivalence (fRec(2031),cHiData)
  406.     equivalence (fRec(2035),cView)
  407.     equivalence (fRec(2039),cOldRect(1))
  408.     equivalence (fRec(2047),cClip(1))
  409.     equivalence (fRec(2055),cContent(1))
  410.     equivalence (fRec(2063),cLimit(1))
  411.     equivalence (fRec(2071),cType)
  412.     equivalence (fRec(2075),cVarCode)
  413.     equivalence (fRec(2077),cResType)
  414.     equivalence (fRec(2081),cResID)
  415.     equivalence (fRec(2083),cResHdl)
  416.     equivalence (fRec(2087),cPrivate)
  417.     equivalence (fRec(2091),cScrInc)
  418.     equivalence (fRec(2092),cCmdKey)
  419.     equivalence (fRec(2093),cPnRound)
  420.     equivalence (fRec(2095),cPnSize(1))
  421.     equivalence (fRec(2099),cTxJust)
  422.     equivalence (fRec(2100),cTxFace)
  423.     equivalence (fRec(2101),cTxSize)
  424.     equivalence (fRec(2103),cTxFont)
  425.     equivalence (fRec(2105),cDataType)
  426.     equivalence (fRec(2107),cDataDigits)
  427.     equivalence (fRec(2108),cDataFormat)
  428.     equivalence (fRec(2109),cDataOffset)
  429.     equivalence (fRec(2111),cDataPtr)
  430.     equivalence (fRec(2115),cStorType)
  431.     equivalence (fRec(2117),cStorPtr)
  432.     equivalence (fRec(2121),cColors)
  433.     equivalence (fRec(2125),cOverride)
  434.     equivalence (fRec(2129),cCount)
  435.     equivalence (fRec(2131),cString)
  436.  
  437.     equivalence (fRec(2387),xEntries)
  438.     equivalence (fRec(2389),xTable(1))
  439.